#!/usr/bin/perl

use Device::SerialPort;
use Time::HiRes qw (usleep);

$if1 = new Device::SerialPort('/dev/ttyS1', 0);

$if1->baudrate(19200);
$if1->parity("odd");
$if1->databits(8);
$if1->stopbits(1);
$if1->handshake('none');

die "$!" unless $if1->write_settings;

my ($read_count, @reads);

while(1) {
    foreach my $addr (17..95) {
	next if $addr%2 == 0;
	$if1->write(chr($addr));
        usleep(20000);
        print "$addr\n";
    }
}
